home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / amos / PrgCollection.lha / Demo7.AMOS / Demo7.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1994-03-12  |  2.5 KB  |  65 lines
  1. ' *************************************
  2. ' *                                   *
  3. ' *            Demo 7 V1.0            *
  4. ' *      Written by Chris Hodges      *
  5. ' *                                   *
  6. ' *************************************
  7. '
  8. Load "LostInTime.abk",3
  9. Hide : Unpack 9 To 0 : Screen Hide 0
  10. For Y=0 To 5
  11.   For X=0 To 9
  12.     Get Block X+Y*10+32,X*32,Y*32,32,32,0
  13.   Next 
  14. Next 
  15. Screen Open 1,768,32,16,0
  16. Curs Off : Flash Off : Cls 0 : Get Palette 0
  17. Screen Display 1,112,40,352,32
  18. For A=16 To 31 : Colour A,$FFF : Next 
  19. For A=8 To 15 : Colour A,0 : Next 
  20. For A=1 To 7 : Colour A,$1111-$222*A : Next 
  21. Screen Open 2,16,16,16,0
  22. Flash Off : Screen Hide 2 : Get Palette 0
  23. Unpack 8 To 0
  24. Screen Display 0,128,72,320,158
  25. For A=16 To 31 : Colour A,$FFF : Next : Screen 1
  26. S$="s1 s2 s3 s4 s5 s6 s7 s8HOTSOFT  h3 PRESENTS ANOTHER "
  27. S$=S$+"VERY GOOD INTROfh3   IT IS COMPLETELY IN AMOS....      s7 "
  28. S$=S$+"THE STARS ARE SPRITES        s6AND THE SPRITES ARE CONTROLLED "
  29. S$=S$+"BY AMAL...      s5THE MUSIC USES THE VBL-INTERRUPT!!!!     s4"
  30. S$=S$+"AND THE SCROLLER IS CONTROLLED BY THIS SCROLLTEXT! "
  31. S$=S$+"   s5 s6 s7 s8YOU CAN STOP THE SCROLLER BY PRESSING THE RIGHT "
  32. S$=S$+"BUTTON...          s9PREsaSS sbNOWsc!!!sd    se    TOO LsfATE!!h5"
  33. S$=S$+" se sd sc sb sa s9 s8 s7 s6 TECHNICAL INFO:       THIS SCROLL"
  34. S$=S$+"ER IS OVERSCANNED,  HAS 16(!) DIFFERENT SPEEDS,    fA FLASH CfOMMAND      AND 9"
  35. S$=S$+"    HOLD   h3 COMMAND!!!       NOW SLOW DOWN           "
  36. S$=S$+"s5   s4   s3  s2 s1  "
  37. SP=1
  38. Autoback 0 : Bob Update Off 
  39. A$="A: P ; Let X=X+R0 ; If X>488 Jump N ; Jump A ; N: Let X=128 ; "
  40. A$=A$+"Let Y=R1+41 ; Jump A ; "
  41. For A=1 To 10
  42.   Sprite A+8,Rnd(352)+112,Rnd(200)+40,1
  43.   Channel A To Sprite A+8 : Amal A,A$
  44.   Sprite A+8,Rnd(352)+112,Rnd(200)+40,1
  45. Next 
  46. Amal On 
  47. For A=1 To 10 : Amreg(A,0)=0 : Next 
  48. Screen To Front 1 : Music 1 : Tempo 16
  49. Repeat 
  50.   Add SPR,1,1 To 10 : Amreg(SPR,0)=SPR/4+SP/2 : Amreg(SPR,1)=Rnd(200)
  51.   If CO>0 Then Colour CO,$FFF : Inc CO : Colour CO,$FFF : Inc CO : If CO>15 Then CO=0 : Fade 2 To 2
  52.   If H=0 Then Add XX,SP : Add PX,SP : If PX>31 Then PX=PX-32 : If XX>383 Then XX=XX-384 : Gosub NL Else Gosub NL
  53.   H=Max(H-1,0) : Screen Offset 1,XX+40+SP, : Wait Vbl 
  54.   If Mouse Key=2 Then Inc H
  55. Until Mouse Key=1
  56. Amal Off : Sprite Off : Music Off 
  57. Screen Close 0 : Screen Close 1
  58. End 
  59. NL:
  60.   Add S,1,1 To Len(S$) : B=Asc(Mid$(S$,S,1))
  61.   If B=102 Then CO=1 : Goto NL
  62.   If B=104 Then Inc S : H=Val(Mid$(S$,S,1))*20 : Goto NL
  63.   If B=115 Then Inc S : SP=Val("$"+Mid$(S$,S,1))+1 : Goto NL
  64.   Put Block B,384+XX-PX,0 : Put Block B,XX-PX,0
  65. Return